﻿Public Class DiaChiBUS
    Public Sub Insert(ByVal dc As DiaChiDTO)
        Dim diachiDAO As New DiaChiDAO
        diachiDAO.Insert(dc)
    End Sub
    Public Sub Delete(ByVal dc As DiaChiDTO)
        Dim diachiDAO As New DiaChiDAO
        diachiDAO.Delete(dc)
    End Sub
    Public Sub Update(ByVal dc As DiaChiDTO)
        Dim diachiDAO As New DiaChiDAO
        diachiDAO.Update(dc)
    End Sub
    Public Function GetAll() As DataTable
        Dim dcDAO As New DiaChiDAO
        Dim dt As New DataTable
        dt = dcDAO.GetAll()
        Return dt
    End Function
    Public Function GetItemID(ByVal sonha As String, ByVal duong As String, ByVal phuong As String, ByVal quan As String) As DiaChiDTO
        Dim dcDAO As New DiaChiDAO
        Dim dt As New DiaChiDTO
        dt = dcDAO.GetItemID(sonha,duong,phuong,quan)
        Return dt
    End Function
    Public Function SelectID(ByVal diachi As DiaChiDTO) As DiaChiDTO
        Dim dcDAO As New DiaChiDAO
        Return dcDAO.SelectID(diachi)
    End Function
End Class
